home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)ge.d64 / querk.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  7KB  |  192 lines
  1. 0 TR=255:L=1:REM"[141][147]                  QUARK
  2. 1 HI[178]1789:C$[178]"G,H,":[143]"
  3. 2 GOTO50000:REM"            BY GEORGE HAMIN
  4. 3 [137]100:[143]"
  5. 5 REM"[141]
  6. 100 [151]53281,0:[151]53280,6:[151]53272,29:[153]"LOAD";:M(4)[178]0:TR[178]0
  7. 101 [153]"$#####%$###############################%";
  8. 102 [153]"!SYSQUARK!!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,!";
  9. 103 [153]"&#####'!,$#SYS-#%,^######%,$######\,$#SYS-#%,!";
  10. 104 [153]"       !,!   !,,,,,,,,[,[,,,,,,,,[   !,!";
  11. 105 [153]"$#####%!,! ? !######\,,,,,^######! ? !,!";
  12. 106 [153]"!SYSSCORE!!,!   !,,,,,,,,],],,,,,,,,!   !,!";
  13. 107 [153]"!     !!,&###',^######',&######\,&###',!";
  14. 108 [153]"!SYS00000!!,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,!";
  15. 109 [153]"!     !!,$###%,$#%,$##%,$##%,$#%,$###%,!";
  16. 110 [153]"!SYSLEVEL!!,&###',&#',&##',&##',&#',&###',!";
  17. 111 [153]"&#%SYS0$#'!,,,,,,,,,,,         ,,,,,,,,,,,!";
  18. 112 [153]"  &#'  &#########\,] $#SYS-#% ],^#########'";
  19. 113 [153]"              ?  SYS=,! ! ? ! !,SYS/  ?
  20. 114 PRINT"$####% $#########\,[ &###' [,^#########%";
  21. 115 PRINT"![158]HIGH&%!,,,,,,,,,,,         ,,,,,,,,,,,!";
  22. 116 PRINT"![158]00000!!,$###%,$#%,$##%,$##%,$#%,$###%,!";
  23. 117 PRINT"&#[158]BY##'!,&###',&#',&##',&##',&#',&###',!";
  24. 118 PRINT"![158]    ! !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,!";
  25. 119 PRINT"&####' !,$###%,^######%,$######\,$###%,!";
  26. 120 PRINT"       !,!   !,,,,,,,,[,[,,,,,,,,!   !,!";
  27. 121 PRINT"$####% !,! ? !######\,,,,,^######! ? !,!";
  28. 122 PRINT"![158]MEN:! !,!   !,,,,,,,,],],,,,,,,,!   !,!";
  29. 123 PRINT"!    ! !,&#[158].#',^######',&######\,&#[158].#',!";
  30. 124 PRINT"![159]    ! !,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,!";
  31. 125 PRINT"&####' &###############################";:POKE2023,39:POKE56295,6
  32. 126 PRINT"[158]";:SC$=STR$(SC):SL=LEN(SC$):PRINTSPC(7-SL)MID$(SC$,2,SL-1)
  33. 127 PRINT"[158]";:L$=STR$(L):SL=LEN(L$):PRINTSPC(5-SL)MID$(L$,2,SL-1)
  34. 128 PRINT"[158]";
  35. 129 L$=STR$(HI):SL=LEN(L$):PRINTSPC(7-SL)MID$(L$,2,SL-1)
  36. 130 PRINT"";C$
  37. 132 PRINT"";:FORT=1TOMM:PRINT"[159](";:NEXT
  38. 200 CR=1024:CC=55296:PO=703:POKEPO+CR,40:POKEPO+CC,3
  39. 205 EP=423:PP=32:POKECR+EP,31:POKECC+EP,4
  40. 210 PRINT"READY"
  41. 220 FORD=0TO500:NEXTD
  42. 230 PRINT"     "
  43. 500 GETA$:A=PEEK(203):IFA=64THENB=4:C(4)=PEEK(PO+CR):GOTO800
  44. 505 IFA=33THENB=0:GOTO550
  45. 510 IFA=36THENB=1:GOTO550
  46. 515 IFA=34THENB=2:GOTO550
  47. 520 IFA=37THENB=3:GOTO550
  48. 530 GOTO800
  49. 550 P=PEEK(PO+CR+M(B))
  50. 555 IFP=32THEN620
  51. 560 IFP=31THEN1000
  52. 562 IFP=44THEN600
  53. 575 GOTO800
  54. 600 SC=SC+1:DT=DT-1
  55. 610 PRINT"[158]";:SC$=STR$(SC):SL=LEN(SC$):PRINTSPC(7-SL)MID$(SC$,2,SL-1)
  56. 620 POKEPO+CR,32:PO=PO+M(B):POKEPO+CR,C(B):POKEPO+CC,3
  57. 630 IFDT=0THEN7000
  58. 800 E=EP+CR:U=PO+CR
  59. 805 Y=INT((E-CR+1)/40)-INT((U-CR+1)/40)
  60. 810 X=E-U-Y*40
  61. 815 IFABS(X)>ABS(Y)THEN830
  62. 820 IFY>=0THENDD=0:GOTO850
  63. 825 DD=1:GOTO850
  64. 830 IFX>0THENDD=2:GOTO850
  65. 835 DD=3:GOTO850
  66. 840 GOTO500
  67. 850 S=EP+CR+M(DD)
  68. 860 PE=PEEK(S)
  69. 865 IFPE=32ORPE=44THEN900
  70. 866 IFPE=63THEN950
  71. 870 IFPE=40ORPE=41ORPE=42ORPE=43THEN1000
  72. 872 IFPE=45ORPE=46ORPE=47ORPE=61THEN900
  73. 875 IFGT>0THEN885
  74. 880 GOTO920
  75. 885 GT=GT-1
  76. 886 POKEEP+CR,PP:EP=EP+M(DD):POKEEP+CR,31:PP=PE:PE=PEEK(EP+CR+M(DD))
  77. 887 GOTO500
  78. 900 GOTO905
  79. 905 POKEEP+CR,PP:EP=EP+M(DD):POKEEP+CR,31:POKECC+EP,4:PP=PE:GOTO500
  80. 920 DD=INT(RND(0)*4):GOTO850
  81. 950 IFRND(1)>.4THENGT=10:GOTO875
  82. 955 XX=INT(RND(0)*6)
  83. 960 POKEEP+CR,PP:EP=TL(XX):PP=PEEK(EP+CR)
  84. 965 POKEEP+CR,31:POKECC+EP,4:GOTO500
  85. 1000 FORSM=0TO10:FORTU=0TO3:POKECR+PO,C(TU):FORDE=1TO10:NEXTDE,TU,SM:MM=MM-1
  86. 1002 POKEPO+CR,32:POKEEP+CR,PP
  87. 1003 IFMM=0THEN2000
  88. 1005 PRINT"[158]"
  89. 1010 PRINT"    [157][157][157][157]";:FORHH=1TOMM:PRINT"[159](";:NEXTHH:PRINT"":GOTO200
  90. 2000 PRINT"[147][159]":POKE53280,7:POKE53281,0:POKE53272,21:GOSUB20000
  91. 2005 PRINT"  [206][205]   [206][205] [167][205]  [206][165][207][183][183]   [206][205] [167]   [167][167][183][183][183][167][205]
  92. 2010 [153]" (null)  (null) (null)  (null)THEN (null)(null) FNFN    (null)  (null)THEN   THENTHEN   THEN (null)
  93. 2015 PRINT" [165]  [164][167][175][175][175][186][167]    [165][204][175]   [165]  [167] [205]  [206][167][175][175] [167] [206]
  94. 2020 [153]" (null)  (null)THEN   THENTHEN    FNFN    (null)  (null) THEN THEN THEN   THEN(null)(null)
  95. 2025 PRINT"  [205][206] [167][160][160] [167][167]    [165][204][175][175]   [205][206]   [205][206] [167][175][175][175][167] [167]
  96. 2030 B$[178]"@ABCDEFGHIJKLMNOPQRSTUVWXYZ:; ,<>?"
  97. 2040 [139]SC[179]HI[167]2500
  98. 2050 HI[178]SC
  99. 2055 C$[178]""
  100. 2060 [153]"CONT  CONGRATULATIONS YOU HAVE MADE THE"
  101. 2070 [153]"              HIGH SCORE "
  102. 2080 [153]"      PLEASE ENTER YOU INITIALS"
  103. 2090 [153]"                 SYS----"
  104. 2095 [153]"ONON";:TE[178]1:[153][202](B$,TE,1);"CMD";
  105. 2100 HS[178][194](197)
  106. 2105 [139]HS[178]47[175]TE[178]1[167]TE[178]34:[137]2200
  107. 2110 [139]HS[178]44[175]TE[178]34[167]TE[178]1:[137]2200
  108. 2115 [139]HS[178]47[167]TE[178]TE[171]1:[137]2200
  109. 2120 [139]HS[178]44[167]TE[178]TE[170]1:[137]2200
  110. 2125 [139]HS[178]60[167]2250
  111. 2150 [137]2100
  112. 2200 [153][202](B$,TE,1);"CMD";
  113. 2210 [129]KB[178]0[164]40:[130]:[137]2100
  114. 2250 C$[178]C$[170][202](B$,TE,1):[153][202](B$,TE,1);
  115. 2260 [129]KB[178]0[164]100:[130]:[139][195](C$)[178]4[167]50000
  116. 2265 TE[178]1:[153][202](B$,TE,1);"CMD";
  117. 2270 [137]2100
  118. 2500 [153]"*************-HIT A KEY-**************"
  119. 2505 [129]T[178]0[164]10:[161]A$:[130]
  120. 2510 [161]A$:[139]A$[178]""[167]2510
  121. 2520 [137]50000
  122. 3000 [128]
  123. 7000 [153]"LOADSYS":[151]53281,0:[151]53280,2:[151]53272,29
  124. 7020 [153]"      $##% $##% $#%  ] ]  ] $##\"
  125. 7025 [153]"      !  ! !  ! ! !  ! !  ! !"
  126. 7030 [153]"      !##' !  ! ! !  ! !  ! &##%"
  127. 7035 [153]"      !##% !  ! ! &% ! !  !    !"
  128. 7040 [153]"      !  ! !  ! !  ! ! !  !    !"
  129. 7045 [153]"      &##' &##' [  &#' &##' ^##'"
  130. 7046 [153]"              ^%  $###% $###%
  131. 7047 PRINT"               !  ! $'! ! $'!
  132. 7048 [153]"               !  ! ! ! ! ! !
  133. 7049 PRINT"               !  !$' ! !$' !
  134. 7050 [153]"               !  !!  ! !!  !
  135. 7051 PRINT"             ^##\ &###' &###'
  136. 7055 [129]XX[178]1[164]50:[129]X1[178]0[164]15:[151]53280,X1:[130]X1,XX
  137. 7060 [151]53280,6:DT[178]311:SC[178]SC[170]100:L[178]L[170]1:[139]L[178]10[167]L[178]1
  138. 7070 [137]100
  139. 7999 [128]
  140. 20000 [129]A[178]0[164]39:[151]1024[170]A,160:[151]55296[170]A,A:[151]56295[171]A,A:[151]2023[171]A,160
  141. 20010 [130]
  142. 20020 [129]A[178]0[164]24:[151]1984[171]A[172]40,160:[151]56256[171]A[172]40,24[171]A:[151]1063[170]A[172]40,160
  143. 20025 [151]55335[170]A[172]40,24[171]A:[130]:[142]
  144. 40000 [128]
  145. 50000 [143]"
  146. 50001 REM"                   TITLE
  147. 50002 [143]"
  148. 50003 POKE53272,21:REM"
  149. 50005 [151]53281,0:[151]53280,0:[153]"LOAD":[141]20000
  150. 50006 [153]"SYS      (null)(null)   (null)(null) (null)(null) (null)USRUSR(null)THENUSRUSRUSRUSR(null)THENUSR(null)  (null)FN
  151. 50008 PRINT"     [206]  [205]  [165][167] [165][167] [165][175][175][186][167] [207][205] [167][167] [167] [206] [165]
  152. 50010 [153]"    (null) (null)(null) (null) FNTHEN FNTHEN FNFN  THEN (null)SQR THENTHEN THEN(null) (null)
  153. 50015 PRINT"    [165] [165][167] [167] [165][167] [165][167] [165][183][208] [167]  [175][175][186][167]   [167]
  154. 50020 [153]"    (null) (null)(null) (null) FNTHEN FNTHEN FN(null)USR THEN  (null)  THEN THEN(null) (null)
  155. 50025 PRINT"     [205]   [205] [165] [183] [167] [165][183][183][208][167]   [205] [167] [167] [205] [165]
  156. 50030 [153]"      (null)(null)(null) (null)(null)ANDANDANDSQR (null)ANDAND(null)THENANDSQR(null) (null)THENANDSQR  (null)FN
  157. 50040 PRINT"         [163][163]              [183][183]
  158. 50045 [153]"BY GEORGE HAMIN"
  159. 50050 [153]"OPEN80/09/30"
  160. 50055 [153]"FORMADE FOR TPUG"
  161. 50060 [139]TR[179][177]255[167][153]:[137]50076
  162. 50065 [153]"************-PLEASE WAIT-*************"
  163. 50066 [151]56334,[194](56334)[175]254:[151]1,[194](1)[175]251:[129]I[178]0[164]511
  164. 50067 [151]I[170]12288,[194](I[170]53248):[130]:[151]1,[194](1)[176]4:[151]56334,[194](56334)[176]1
  165. 50070 [129]T[178]0[164]14:[135]A:[130]:[129]T[178]12504[164]12503[170]21[172]8:[135]A:[151]T,A:[130]
  166. 50075 [129]T[178]0[164]7:[135]S:[151]12783[171]7[170]T,S:[130]:TRICK[178]0
  167. 50076 [140]:[129]I[178]0[164]3:[135]C(I):[135]M(I):[130]
  168. 50077 [131]40,-40,41,40,42,-1,43,1
  169. 50078 [129]T[178]0[164]6:[135]TL(T):[130]
  170. 50079 [131]51,75,498,422,509,931,955
  171. 50080 [153]"ON*************-HIT A KEY-**************"
  172. 50084 [129]KK[178]0[164]10:[161]A$:[130]
  173. 50085 [161]A$:[139]A$[178]""[167]50085
  174. 50086 SC[178]0:MM[178]4:DT[178]311:L[178]1
  175. 50090 [137]3
  176. 60000 [143]"             GRAPHICS  DATA
  177. 60001 REM"
  178. 60005 [131]219,219,219,219,219,219,195,255,255,3,3,251,251,3,3,255
  179. 60010 [131]255,195,219,219,219,219,219,219,255,192,192,223,223,192,192,255
  180. 60015 [131]126,153,153,231,126,231,231,231,0,0,0,0,0,0,0,0
  181. 60020 [131]219,219,219,219,219,219,219,219,0,0,0,0,0,0,0,0,255,0,0,255,255,0,0,255
  182. 60025 [131]255,192,192,223,223,216,216,216,255,3,3,251,251,27,27,27
  183. 60030 [131]216,216,216,223,223,192,192,255,27,27,27,251,251,3,3,255
  184. 60035 [131]0,24,24,24,60,126,255,153,153,255,126,60,24,24,24,0,3,6,14,127,127,14
  185. 60040 [131]6,3,192,96,112,254,254,112,96,192,0,0,0,24,24,0,0,0
  186. 60041 [131]255,0,0,0,0,0,0,0,0,0,0,0,0,0,0,255,128,128,128,128,128,128,128,128
  187. 60045 [131]1,1,1,1,1,1,1,1
  188. 60050 [143]"
  189. 60055 REM"              MOVEMENT DATA
  190. 60060 [143]"
  191. 60065 DATA40,-40,41,40,42,-1,43,1
  192.